Programmer Plus 2007/Programmer-Plus-2007.iso/Programming/ActiveX Controlls/NCTAudioEditor2 ActiveX DLL/NCTAudioEditor2.exe/{app}/Samples/TestVBAudioEditor2/frmVOX.frm

Visual Basic Form | 2003-04-02 | 5.4 KB | 163 lines

VERSION 5.00
Begin VB.Form frmVOX
   Caption         =   "Set VOX Format"
   ClientHeight    =   1455
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4665
   LinkTopic       =   "Form1"
   ScaleHeight     =   1455
   ScaleWidth      =   4665
   StartUpPosition =   1  'CenterOwner
   Begin VB.CommandButton cmdCancel
      Caption         =   "Cancel"
      Height          =   375
      Left            =   2745
      TabIndex        =   10
      Top             =   1035
      Width           =   960
   End
   Begin VB.CommandButton cmdOK
      Caption         =   "Ok"
      Height          =   375
      Left            =   1710
      TabIndex        =   9
      Top             =   1035
      Width           =   960
   End
   Begin VB.Frame Frame2
      Caption         =   "Frequency (Hz)"
      Height          =   930
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   4545
      Begin VB.OptionButton F10
         Caption         =   "12000"
         Height          =   255
         Left            =   1020
         TabIndex        =   12
         Top             =   600
         Width           =   780
      End
      Begin VB.OptionButton F9
         Caption         =   "6000"
         Height          =   255
         Left            =   120
         TabIndex        =   11
         Top             =   270
         Width           =   780
      End
      Begin VB.OptionButton F2
         Caption         =   "16000"
         Height          =   255
         Left            =   1920
         TabIndex        =   8
         Top             =   270
         Width           =   780
      End
      Begin VB.OptionButton F3
         Caption         =   "24000"
         Height          =   255
         Left            =   2820
         TabIndex        =   7
         Top             =   270
         Width           =   780
      End
      Begin VB.OptionButton F7
         Caption         =   "44100"
         Height          =   255
         Left            =   2820
         TabIndex        =   6
         Top             =   600
         Value           =   -1  'True
         Width           =   780
      End
      Begin VB.OptionButton F4
         Caption         =   "32000"
         Height          =   255
         Left            =   3720
         TabIndex        =   5
         Top             =   270
         Width           =   780
      End
      Begin VB.OptionButton F8
         Caption         =   "48000"
         Height          =   255
         Left            =   3720
         TabIndex        =   4
         Top             =   585
         Width           =   780
      End
      Begin VB.OptionButton F1
         Caption         =   "8000"
         Height          =   255
         Left            =   120
         TabIndex        =   3
         Top             =   600
         Width           =   780
      End
      Begin VB.OptionButton F5
         Caption         =   "11025 "
         Height          =   255
         Left            =   1020
         TabIndex        =   2
         Top             =   270
         Width           =   780
      End
      Begin VB.OptionButton F6
         Caption         =   "22050"
         Height          =   255
         Left            =   1920
         TabIndex        =   1
         Top             =   600
         Width           =   780
      End
   End
Attribute VB_Name = "frmVOX"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Freq As Long        'Declares the variable to store the Frequency value
Private Sub cmdCancel_Click()    'this sub starts on clicking "Cancel" button and terminates the window
    Unload Me
End Sub
Private Sub cmdOK_Click()   'this sub starts on clicking "OK" button
    frmDialog.AudioEditor1.FileFormat.SetFormatVOX Freq  'sets the Frequency according to the value chosen by a customer
    Unload Me   'terminates the frame and stops running it
End Sub
Private Sub F1_Click() 'this sub starts on clicking "8000" radio button
    Freq = 8000 'sets frequency value to 8000 Hz
End Sub
Private Sub F10_Click()
    Freq = 12000
End Sub
Private Sub F2_Click()  'this sub starts on clicking "16000" radio button
    Freq = 16000 'sets frequency value to 16000 Hz
End Sub
Private Sub F3_Click()  'this sub starts on clicking "24000" radio button
    Freq = 24000    'sets frequency value to 24000  Hz
End Sub
Private Sub F4_Click()  'this sub starts on clicking "32000" radio button
    Freq = 32000    'sets frequency value to 32000 Hz
End Sub
Private Sub F5_Click()  'this sub starts on clicking "11025" radio button
    Freq = 11025   'sets frequency value to 11025 Hz
End Sub
Private Sub F6_Click()  'this sub starts on clicking "22050" radio button
    Freq = 22050    'sets frequency value to 22050 Hz
End Sub
Private Sub F7_Click()  'this sub starts on clicking "44100" radio button
    Freq = 44100    'sets frequency value to 44100 Hz
End Sub
Private Sub F8_Click()  'this sub starts on clicking "48000" radio button
    Freq = 48000    'sets frequency value to 48000 Hz
End Sub
Private Sub F9_Click()
    Freq = 6000
End Sub
Private Sub Form_Load() 'this sub starts on loading the frmVOX frame
    Freq = 44100    'sets frequency value to   Hz
End Sub